#Include "Protheus.ch"

User Function CriaDB()

dbSelectArea("SZS")
SZS->(dbCloseArea)

Alert("Fim!")

Return Nil